home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / doorntro.zip / DOOR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-11-28  |  8KB  |  740 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.3O (Encryption type II) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     String   STRING010
  32.     String   STRING011
  33.     String   STRING012
  34.     String   STRING013
  35.     Time     TIME001
  36.     Time     TIME002
  37.     Time     TIME003
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     STRING013 = PPEPath() + "DOOR.cfg"
  42.     TIME001 = Time()
  43.     TIME002 = ReadLine(PCBDat(), 189)
  44.     TIME003 = ReadLine(PCBDat(), 190)
  45.     STRING001 = Chr(7)
  46.     STRING002 = 13
  47.     STRING003 = Chr(27) + "["
  48.     STRING004 = STRING003 + "0,0H"
  49.     STRING005 = STRING003 + "K"
  50.     INTEGER003 = 3
  51.     Cls
  52.     If (Exist(STRING013)) Then
  53.         FOpen 1, STRING013, 0, 2
  54.         FGet 1, STRING007
  55.         FGet 1, STRING008
  56.         FGet 1, STRING009
  57.         FGet 1, STRING010
  58.         FGet 1, STRING011
  59.         FGet 1, STRING012
  60.         FGet 1, INTEGER003
  61.         FClose 1
  62.         Gosub LABEL001
  63.     Else
  64.         Cls
  65.         Newlines 10
  66.         PrintLn "@X84W A R N I N G : @X04There is no configuration file, please tell the SysOp!"
  67.     Endif
  68.     End
  69.     :LABEL001
  70.     DispFile PPEPath() + "main", 1
  71.     AnsiPos 26, 12
  72.     PrintLn "@X08°@X06─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  73.     AnsiPos 26, 13
  74.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  75.     AnsiPos 26, 14
  76.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  77.     AnsiPos 26, 15
  78.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  79.     AnsiPos 26, 16
  80.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  81.     AnsiPos 26, 17
  82.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  83.     AnsiPos 26, 18
  84.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  85.     AnsiPos 26, 19
  86.     PrintLn "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  87.     Sound 100
  88.     AnsiPos 9, 20
  89.     SPrint ""
  90.     Delay 9
  91.     AnsiPos 26, 12
  92.     Print "@X08°                         @X08°"
  93.     AnsiPos 26, 13
  94.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  95.     AnsiPos 26, 14
  96.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  97.     AnsiPos 26, 15
  98.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  99.     AnsiPos 26, 16
  100.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  101.     AnsiPos 26, 17
  102.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  103.     AnsiPos 26, 18
  104.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  105.     AnsiPos 26, 19
  106.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  107.     Sound 200
  108.     AnsiPos 9, 20
  109.     SPrint ""
  110.     Delay 9
  111.     AnsiPos 26, 12
  112.     Print "@X08°                         @X08°"
  113.     AnsiPos 26, 13
  114.     Print "@X08°                         @X08°"
  115.     AnsiPos 26, 14
  116.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  117.     AnsiPos 26, 15
  118.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  119.     AnsiPos 26, 16
  120.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  121.     AnsiPos 26, 17
  122.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  123.     AnsiPos 26, 18
  124.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  125.     AnsiPos 26, 19
  126.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  127.     Sound 300
  128.     AnsiPos 9, 20
  129.     SPrint ""
  130.     Delay 9
  131.     AnsiPos 26, 12
  132.     Print "@X08°                         @X08°"
  133.     AnsiPos 26, 13
  134.     Print "@X08°                         @X08°"
  135.     AnsiPos 26, 14
  136.     Print "@X08°                         @X08°"
  137.     AnsiPos 26, 15
  138.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  139.     AnsiPos 26, 16
  140.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  141.     AnsiPos 26, 17
  142.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  143.     AnsiPos 26, 18
  144.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  145.     AnsiPos 26, 19
  146.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  147.     Sound 400
  148.     AnsiPos 9, 20
  149.     SPrint ""
  150.     Delay 9
  151.     AnsiPos 26, 12
  152.     Print "@X08°                         @X08°"
  153.     AnsiPos 26, 13
  154.     Print "@X08°                         @X08°"
  155.     AnsiPos 26, 14
  156.     Print "@X08°                         @X08°"
  157.     AnsiPos 26, 15
  158.     Print "@X08°                         @X08°"
  159.     AnsiPos 26, 16
  160.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  161.     AnsiPos 26, 17
  162.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  163.     AnsiPos 26, 18
  164.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  165.     AnsiPos 26, 19
  166.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  167.     Sound 500
  168.     AnsiPos 9, 20
  169.     SPrint ""
  170.     Delay 9
  171.     AnsiPos 26, 12
  172.     Print "@X08°                         @X08°"
  173.     AnsiPos 26, 13
  174.     Print "@X08°                         @X08°"
  175.     AnsiPos 26, 14
  176.     Print "@X08°                         @X08°"
  177.     AnsiPos 26, 15
  178.     Print "@X08°                         @X08°"
  179.     AnsiPos 26, 16
  180.     Print "@X08°                         @X08°"
  181.     AnsiPos 26, 17
  182.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  183.     AnsiPos 26, 18
  184.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  185.     AnsiPos 26, 19
  186.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  187.     Sound 600
  188.     AnsiPos 9, 20
  189.     SPrint ""
  190.     Delay 9
  191.     AnsiPos 26, 12
  192.     Print "@X08°                         @X08°"
  193.     AnsiPos 26, 13
  194.     Print "@X08°                         @X08°"
  195.     AnsiPos 26, 14
  196.     Print "@X08°                         @X08°"
  197.     AnsiPos 26, 15
  198.     Print "@X08°                         @X08°"
  199.     AnsiPos 26, 16
  200.     Print "@X08°                         @X08°"
  201.     AnsiPos 26, 17
  202.     Print "@X08°                         @X08°"
  203.     AnsiPos 26, 18
  204.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  205.     AnsiPos 26, 19
  206.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  207.     Sound 700
  208.     AnsiPos 9, 20
  209.     SPrint ""
  210.     Delay 9
  211.     AnsiPos 26, 12
  212.     Print "@X08°                         @X08°"
  213.     AnsiPos 26, 13
  214.     Print "@X08°                         @X08°"
  215.     AnsiPos 26, 14
  216.     Print "@X08°                         @X08°"
  217.     AnsiPos 26, 15
  218.     Print "@X08°                         @X08°"
  219.     AnsiPos 26, 16
  220.     Print "@X08°                         @X08°"
  221.     AnsiPos 26, 17
  222.     Print "@X08°                         @X08°"
  223.     AnsiPos 26, 18
  224.     Print "@X08°                         @X08°"
  225.     AnsiPos 26, 19
  226.     Print "@X08°@X6E═════════════════════════@X08°"
  227.     Sound 800
  228.     AnsiPos 9, 20
  229.     SPrint ""
  230.     Delay 9
  231.     AnsiPos 26, 12
  232.     Print "@X08°                         @X08°"
  233.     AnsiPos 26, 13
  234.     Print "@X08°                         @X08°"
  235.     AnsiPos 26, 14
  236.     Print "@X08°                         @X08°"
  237.     AnsiPos 26, 15
  238.     Print "@X08°                         @X08°"
  239.     AnsiPos 26, 16
  240.     Print "@X08°                         @X08°"
  241.     AnsiPos 26, 17
  242.     Print "@X08°                         @X08°"
  243.     AnsiPos 26, 18
  244.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  245.     AnsiPos 26, 19
  246.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  247.     Sound 700
  248.     AnsiPos 9, 20
  249.     SPrint ""
  250.     Delay 9
  251.     AnsiPos 26, 12
  252.     Print "@X08°                         @X08°"
  253.     AnsiPos 26, 13
  254.     Print "@X08°                         @X08°"
  255.     AnsiPos 26, 14
  256.     Print "@X08°                         @X08°"
  257.     AnsiPos 26, 15
  258.     Print "@X08°                         @X08°"
  259.     AnsiPos 26, 16
  260.     Print "@X08°                         @X08°"
  261.     AnsiPos 26, 17
  262.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  263.     AnsiPos 26, 18
  264.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  265.     AnsiPos 26, 19
  266.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  267.     Sound 600
  268.     AnsiPos 9, 20
  269.     SPrint ""
  270.     Delay 9
  271.     AnsiPos 26, 12
  272.     Print "@X08°                         @X08°"
  273.     AnsiPos 26, 13
  274.     Print "@X08°                         @X08°"
  275.     AnsiPos 26, 14
  276.     Print "@X08°                         @X08°"
  277.     AnsiPos 26, 15
  278.     Print "@X08°                         @X08°"
  279.     AnsiPos 26, 16
  280.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  281.     AnsiPos 26, 17
  282.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  283.     AnsiPos 26, 18
  284.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  285.     AnsiPos 26, 19
  286.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  287.     Sound 500
  288.     AnsiPos 9, 20
  289.     SPrint ""
  290.     Delay 9
  291.     AnsiPos 26, 12
  292.     Print "@X08°                         @X08°"
  293.     AnsiPos 26, 13
  294.     Print "@X08°                         @X08°"
  295.     AnsiPos 26, 14
  296.     Print "@X08°                         @X08°"
  297.     AnsiPos 26, 15
  298.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  299.     AnsiPos 26, 16
  300.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  301.     AnsiPos 26, 17
  302.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  303.     AnsiPos 26, 18
  304.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  305.     AnsiPos 26, 19
  306.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  307.     Sound 400
  308.     AnsiPos 9, 20
  309.     SPrint ""
  310.     Delay 9
  311.     AnsiPos 26, 12
  312.     Print "@X08°                         @X08°"
  313.     AnsiPos 26, 13
  314.     Print "@X08°                         @X08°"
  315.     AnsiPos 26, 14
  316.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  317.     AnsiPos 26, 15
  318.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  319.     AnsiPos 26, 16
  320.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  321.     AnsiPos 26, 17
  322.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  323.     AnsiPos 26, 18
  324.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  325.     AnsiPos 26, 19
  326.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  327.     Sound 300
  328.     AnsiPos 9, 20
  329.     SPrint ""
  330.     Delay 9
  331.     AnsiPos 26, 12
  332.     Print "@X08°                         @X08°"
  333.     AnsiPos 26, 13
  334.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  335.     AnsiPos 26, 14
  336.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  337.     AnsiPos 26, 15
  338.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  339.     AnsiPos 26, 16
  340.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  341.     AnsiPos 26, 17
  342.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  343.     AnsiPos 26, 18
  344.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  345.     AnsiPos 26, 19
  346.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  347.     Sound 200
  348.     AnsiPos 9, 20
  349.     SPrint ""
  350.     Delay 9
  351.     AnsiPos 26, 12
  352.     PrintLn "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  353.     AnsiPos 26, 13
  354.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  355.     AnsiPos 26, 14
  356.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  357.     AnsiPos 26, 15
  358.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  359.     AnsiPos 26, 16
  360.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  361.     AnsiPos 26, 17
  362.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  363.     AnsiPos 26, 18
  364.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  365.     AnsiPos 26, 19
  366.     PrintLn "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  367.     Sound 100
  368.     AnsiPos 9, 20
  369.     SPrint ""
  370.     Delay 9
  371.     AnsiPos 26, 12
  372.     Print "@X08°                         @X08°"
  373.     AnsiPos 26, 13
  374.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  375.     AnsiPos 26, 14
  376.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  377.     AnsiPos 26, 15
  378.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  379.     AnsiPos 26, 16
  380.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  381.     AnsiPos 26, 17
  382.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  383.     AnsiPos 26, 18
  384.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  385.     AnsiPos 26, 19
  386.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  387.     Sound 200
  388.     AnsiPos 9, 20
  389.     SPrint ""
  390.     Delay 9
  391.     AnsiPos 26, 12
  392.     Print "@X08°                         @X08°"
  393.     AnsiPos 26, 13
  394.     Print "@X08°                         @X08°"
  395.     AnsiPos 26, 14
  396.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  397.     AnsiPos 26, 15
  398.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  399.     AnsiPos 26, 16
  400.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  401.     AnsiPos 26, 17
  402.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  403.     AnsiPos 26, 18
  404.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  405.     AnsiPos 26, 19
  406.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  407.     Sound 300
  408.     AnsiPos 9, 20
  409.     SPrint ""
  410.     Delay 9
  411.     AnsiPos 26, 12
  412.     Print "@X08°                         @X08°"
  413.     AnsiPos 26, 13
  414.     Print "@X08°                         @X08°"
  415.     AnsiPos 26, 14
  416.     Print "@X08°                         @X08°"
  417.     AnsiPos 26, 15
  418.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  419.     AnsiPos 26, 16
  420.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  421.     AnsiPos 26, 17
  422.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  423.     AnsiPos 26, 18
  424.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  425.     AnsiPos 26, 19
  426.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  427.     Sound 400
  428.     AnsiPos 9, 20
  429.     SPrint ""
  430.     Delay 9
  431.     AnsiPos 26, 12
  432.     Print "@X08°                         @X08°"
  433.     AnsiPos 26, 13
  434.     Print "@X08°                         @X08°"
  435.     AnsiPos 26, 14
  436.     Print "@X08°                         @X08°"
  437.     AnsiPos 26, 15
  438.     Print "@X08°                         @X08°"
  439.     AnsiPos 26, 16
  440.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  441.     AnsiPos 26, 17
  442.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  443.     AnsiPos 26, 18
  444.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  445.     AnsiPos 26, 19
  446.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  447.     Sound 500
  448.     AnsiPos 9, 20
  449.     SPrint ""
  450.     Delay 9
  451.     AnsiPos 26, 12
  452.     Print "@X08°                         @X08°"
  453.     AnsiPos 26, 13
  454.     Print "@X08°                         @X08°"
  455.     AnsiPos 26, 14
  456.     Print "@X08°                         @X08°"
  457.     AnsiPos 26, 15
  458.     Print "@X08°                         @X08°"
  459.     AnsiPos 26, 16
  460.     Print "@X08°                         @X08°"
  461.     AnsiPos 26, 17
  462.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  463.     AnsiPos 26, 18
  464.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  465.     AnsiPos 26, 19
  466.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  467.     Sound 600
  468.     AnsiPos 9, 20
  469.     SPrint ""
  470.     Delay 9
  471.     AnsiPos 26, 12
  472.     Print "@X08°                         @X08°"
  473.     AnsiPos 26, 13
  474.     Print "@X08°                         @X08°"
  475.     AnsiPos 26, 14
  476.     Print "@X08°                         @X08°"
  477.     AnsiPos 26, 15
  478.     Print "@X08°                         @X08°"
  479.     AnsiPos 26, 16
  480.     Print "@X08°                         @X08°"
  481.     AnsiPos 26, 17
  482.     Print "@X08°                         @X08°"
  483.     AnsiPos 26, 18
  484.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  485.     AnsiPos 26, 19
  486.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  487.     Sound 700
  488.     AnsiPos 9, 20
  489.     SPrint ""
  490.     Delay 9
  491.     AnsiPos 26, 12
  492.     Print "@X08°                         @X08°"
  493.     AnsiPos 26, 13
  494.     Print "@X08°                         @X08°"
  495.     AnsiPos 26, 14
  496.     Print "@X08°                         @X08°"
  497.     AnsiPos 26, 15
  498.     Print "@X08°                         @X08°"
  499.     AnsiPos 26, 16
  500.     Print "@X08°                         @X08°"
  501.     AnsiPos 26, 17
  502.     Print "@X08°                         @X08°"
  503.     AnsiPos 26, 18
  504.     Print "@X08°                         @X08°"
  505.     AnsiPos 26, 19
  506.     Print "@X08°@X6E═════════════════════════@X08°"
  507.     Sound 800
  508.     AnsiPos 9, 20
  509.     SPrint ""
  510.     Delay 9
  511.     AnsiPos 26, 12
  512.     Print "@X08°                         @X08°"
  513.     AnsiPos 26, 13
  514.     Print "@X08°                         @X08°"
  515.     AnsiPos 26, 14
  516.     Print "@X08°                         @X08°"
  517.     AnsiPos 26, 15
  518.     Print "@X08°                         @X08°"
  519.     AnsiPos 26, 16
  520.     Print "@X08°                         @X08°"
  521.     AnsiPos 26, 17
  522.     Print "@X08°                         @X08°"
  523.     AnsiPos 26, 18
  524.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  525.     AnsiPos 26, 19
  526.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  527.     Sound 700
  528.     AnsiPos 9, 20
  529.     SPrint ""
  530.     Delay 9
  531.     AnsiPos 26, 12
  532.     Print "@X08°                         @X08°"
  533.     AnsiPos 26, 13
  534.     Print "@X08°                         @X08°"
  535.     AnsiPos 26, 14
  536.     Print "@X08°                         @X08°"
  537.     AnsiPos 26, 15
  538.     Print "@X08°                         @X08°"
  539.     AnsiPos 26, 16
  540.     Print "@X08°                         @X08°"
  541.     AnsiPos 26, 17
  542.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  543.     AnsiPos 26, 18
  544.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  545.     AnsiPos 26, 19
  546.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  547.     Sound 600
  548.     AnsiPos 9, 20
  549.     SPrint ""
  550.     Delay 9
  551.     AnsiPos 26, 12
  552.     Print "@X08°                         @X08°"
  553.     AnsiPos 26, 13
  554.     Print "@X08°                         @X08°"
  555.     AnsiPos 26, 14
  556.     Print "@X08°                         @X08°"
  557.     AnsiPos 26, 15
  558.     Print "@X08°                         @X08°"
  559.     AnsiPos 26, 16
  560.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  561.     AnsiPos 26, 17
  562.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  563.     AnsiPos 26, 18
  564.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  565.     AnsiPos 26, 19
  566.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  567.     Sound 500
  568.     AnsiPos 9, 20
  569.     SPrint ""
  570.     Delay 9
  571.     AnsiPos 26, 12
  572.     Print "@X08°                         @X08°"
  573.     AnsiPos 26, 13
  574.     Print "@X08°                         @X08°"
  575.     AnsiPos 26, 14
  576.     Print "@X08°                         @X08°"
  577.     AnsiPos 26, 15
  578.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  579.     AnsiPos 26, 16
  580.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  581.     AnsiPos 26, 17
  582.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  583.     AnsiPos 26, 18
  584.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  585.     AnsiPos 26, 19
  586.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  587.     Sound 400
  588.     AnsiPos 9, 20
  589.     SPrint ""
  590.     Delay 9
  591.     AnsiPos 26, 12
  592.     Print "@X08°                         @X08°"
  593.     AnsiPos 26, 13
  594.     Print "@X08°                         @X08°"
  595.     AnsiPos 26, 14
  596.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  597.     AnsiPos 26, 15
  598.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  599.     AnsiPos 26, 16
  600.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  601.     AnsiPos 26, 17
  602.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  603.     AnsiPos 26, 18
  604.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  605.     AnsiPos 26, 19
  606.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  607.     Sound 300
  608.     AnsiPos 9, 20
  609.     SPrint ""
  610.     Delay 9
  611.     AnsiPos 26, 12
  612.     Print "@X08°                         @X08°"
  613.     AnsiPos 26, 13
  614.     Print "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  615.     AnsiPos 26, 14
  616.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  617.     AnsiPos 26, 15
  618.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  619.     AnsiPos 26, 16
  620.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  621.     AnsiPos 26, 17
  622.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  623.     AnsiPos 26, 18
  624.     Print "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  625.     AnsiPos 26, 19
  626.     Print "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  627.     Sound 200
  628.     AnsiPos 9, 20
  629.     SPrint ""
  630.     Delay 9
  631.     AnsiPos 26, 12
  632.     PrintLn "@X08°@X6E─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─@X08°"
  633.     AnsiPos 26, 13
  634.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  635.     AnsiPos 26, 14
  636.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  637.     AnsiPos 26, 15
  638.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  639.     AnsiPos 26, 16
  640.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  641.     AnsiPos 26, 17
  642.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  643.     AnsiPos 26, 18
  644.     PrintLn "@X6E│ │ │ │ │ │ │ │ │ │ │ │ │ │"
  645.     AnsiPos 26, 19
  646.     PrintLn "@X6E└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘"
  647.     Sound 100
  648.     AnsiPos 9, 20
  649.     SPrint ""
  650.     Delay 9
  651.     Sound 0
  652.     Newlines 2
  653.     End
  654.     INTEGER001 = GetX()
  655.     INTEGER002 = GetY()
  656.     SPrint INTEGER001, INTEGER002
  657.     AnsiPos 20, 20
  658.     SPrint "@X05" + ""
  659.     SPrint STRING003 + String(INTEGER002) + "," + String(INTEGER001) + "H"
  660.     Return
  661.     For STRING006 = 1 To 30
  662.         Sound 100
  663.         Sound 200
  664.         Sound 300
  665.         Sound 400
  666.         Sound 500
  667.         Delay 3
  668.     Next
  669.     Delay 10
  670.     Return
  671.  
  672. ;------------------------------------------------------------------------------
  673. ;
  674. ; Usage report (before postprocessing)
  675. ;
  676. ; ■ Statements used :
  677. ;
  678. ;    2       End
  679. ;    2       Cls
  680. ;    4       Goto 
  681. ;    14      Let 
  682. ;    208     Print 
  683. ;    25      PrintLn 
  684. ;    2       If 
  685. ;    1       DispFile 
  686. ;    1       FOpen 
  687. ;    1       FClose 
  688. ;    7       FGet 
  689. ;    1       Gosub 
  690. ;    2       Return
  691. ;    31      Delay 
  692. ;    2       Newlines 
  693. ;    262     AnsiPos 
  694. ;    35      Sound 
  695. ;    32      SPrint 
  696. ;
  697. ;
  698. ; ■ Functions used :
  699. ;
  700. ;    11      +
  701. ;    1       <
  702. ;    1       <=
  703. ;    2       >=
  704. ;    2       !
  705. ;    2       &&
  706. ;    1       ||
  707. ;    2       Chr()
  708. ;    1       Time()
  709. ;    2       String()
  710. ;    2       PCBDat()
  711. ;    2       PPEPath()
  712. ;    2       ReadLine()
  713. ;    1       Exist()
  714. ;    1       GetX()
  715. ;    1       GetY()
  716. ;
  717. ;------------------------------------------------------------------------------
  718. ;
  719. ; Analysis flags : d
  720. ;
  721. ; d - Access PCBOARD.DAT ■ 2
  722. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  723. ;     for many PPE so they can find various informations on the system
  724. ;     (system paths, max number of lines in messages, ...) but it may also
  725. ;     be a way to gather vital informations.
  726. ;     ■ Search for : PCBDAT()
  727. ;
  728. ;------------------------------------------------------------------------------
  729. ;
  730. ; Postprocessing report
  731. ;
  732. ;    1       For/Next
  733. ;    0       While/EndWhile
  734. ;    1       If/Then or If/Then/Else
  735. ;    0       Select Case
  736. ;
  737. ;------------------------------------------------------------------------------
  738. ;                 AEGiS Corp - Break the routines, code against the machines!
  739. ;------------------------------------------------------------------------------
  740.